home *** CD-ROM | disk | FTP | other *** search
/ IRIX 6.4 Applications 1997 August / SGI IRIX 6.4 Applications 1997 August.iso / dist / dynaweb.idb / usr / lib / Insight / data / config / colltext.dwc.z / colltext.dwc
Encoding:
Text File  |  1997-07-30  |  2.3 KB  |  62 lines
  1.  
  2. #####################################################################
  3. #####################################################################
  4. ##                                                                 ##
  5. ##             COLLECTION TEXT VIEW CREATION                       ##
  6. ##                                                                 ##
  7. #####################################################################
  8. #####################################################################
  9.  
  10.  
  11. dwScript Generic__CollectionTextView {
  12.   ## Note: only can get here in "frames" mode.
  13.   if {[dwGet State__UpdateOtherFrames] != 0} {
  14.     dwCall dwMakeUrlParts
  15.     set selection "/[dwGetSelectionPath]"
  16.     if {$selection == "/"} {set selection ""}
  17.     ## Next line wanted to be   set tocloc "../@Generic...  , but
  18.     ## MS Internet Explorer chokews on it. So instead, grab the base
  19.     ## URL and chop off the last segment.
  20.     regsub {(.*)/[^/]+/}  [dwGet BaseUrl] {\1} toclocbase
  21.     set tocloc "$toclocbase/@Generic__CollectionTocView$selection[dwGet UrlParamString][dwGet UrlQueryString]"
  22.     set bbarloc "@Generic__CollectionButtonBarView[dwGet UrlParamString][dwGet UrlQueryString]"
  23.     dwSet JavaScript__UpdateOtherFrames \
  24.     "parent.dynaweb_toc.location=\"$tocloc\"; \
  25.      parent.dynaweb_bbar.location=\"$bbarloc\""
  26.   } else {
  27.      dwSet JavaScript__UpdateOtherFrames ""
  28.   }
  29.   dwProcessTemplate Generic__CollectionTextTemplate
  30. }
  31.  
  32.  
  33. dwTemplate Generic__CollectionTextTemplate {
  34. $[dwSetRootPath [dwUrlEncode [dwGetSelectionPath]]]
  35. $[dwCall dwMakeUrlParts]
  36. <HTML>
  37.    <HEAD>
  38.       <BASE HREF="$[dwGet BaseUrl]@Generic__CollectionTextView">
  39.       <SCRIPT Language="JavaScript">
  40.       <!--
  41.          $[dwGet JavaScript__UpdateOtherFrames]
  42.       // -->
  43.       </SCRIPT>
  44.    </HEAD>
  45.    <BODY BGCOLOR=#FFFBF0 LINK=#000000 ALINK=#008000 VLINK=#800080>
  46.       <H3>Contents of the <i>$[dwGetRootTitle]</i> Collection</H3>
  47.       <HR>
  48.       $[dwCall Generic__GenerateCollectionTextViewBody]
  49.       <HR>
  50.    </BODY>
  51. </HTML>
  52. }
  53.  
  54. dwScript Generic__GenerateCollectionTextViewBody {
  55.     dwCall                  Tables__TocLinesBefore
  56.     dwInitTocLineGenerator  BooksAndCollections [dwGet State__CollTocDepth] \
  57.                 SortByHits
  58.     dwCall                  Generic__GenerateCollectionTocLines
  59.     dwCall                  Tables__TocLinesAfter
  60. }
  61.  
  62.